    Sub Main()	dim s as string	s = "jose"	msgbox(s.len())end sub